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Atari Compute 


Atari Computer Enthusias roads) an InGépendent, nan-prarnt computer users’ group 
loosely affiliated with ee Computer Enthusiacts in the U.S.A, We have no connections 
with ATARI, Inc. or their Australian distrioutors, Puturetronics Australia Pty Lt, 


Our aims include promotion of the ATARI 400/200 Home Computer System) instructing both 
beginners and advanced users in programming techniques; exchanging hints, tips and iceas 
amongst members and generally enjoying curselves. 


Meetings are held at 4.0 P.M, on the first Monday of every month far the aoa Monday if it 
clashes with a public holiday} in the Reece Room, 7th Ficor, CTC Hause, 32-34 Martin 


Place, Sydney (turn right when you get out of the lift). 


S-AW.)1s $15 one-time joining fee plue $15 annual suascription (or $10 
school). 


Membership to A.C.E.CN, i 
joining fee plus $10 annual subscristion for students under if and still at 


Subscriptions or postal enquiries may be di irected to 
Atari Computer Enthusiasts (H.S.W.) 
G.P.O. Box 4314, 
sydney, 
NOS.W, 2001 


Prone enquiries 
Tony Reeve (Presidenth 452-2774 
Barry Williams (Vice President)) 452-2229 
Steven Marcus (Secretary/Treasurerl Sa7~-4257 
Garry Francis (Editar): 780-1397 
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Heap Fine 
4th July 
sist August 
=th September 
#10th October (due to 8-Hour Day Public Holiday) 
7th Navember 
#2th December 


% indicates release dates for INSIDE INFO (subject to unforseen circumstances), Deadline 
for articles is the meeting prior ta the release date, 
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WANTED: Computer oriented jokes, riddles, words af wisdom and other 
to help fill empty spaces like this. Or how about some one-liners? 
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Silly little tid-biis 
Try these for size. 
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From The President 


The {st australian Personai compu: 
Organisers and exnibditors, The crowds wera continuous over 
by the general public indicates that } 


Tr 


The A,C.E.(N.S.W,) stand was very small comparec with other exribitors, htwever we made up 
for that with our enthusiasm. This was the rirst major public relations project undertaken by 
your club and Iam pleased to report that it was very successful in acvertising our activities 
to the public, 


On your behalf, I would like to thank Barry Williams for a ees our So 
Francis for his attendance and heip every cay, the commii 
assisted an the stand, Qur friends at Computer Wave provided the 
to Bernhard for his continual support, 

~ Tony Reeve 
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Editorial 


Please note the new address for meetings!! Ne can no longer use 1.P. Sharp’s premises due 


to new security arrangements and what not. oe like ta thank them for putting up with us 
while they did. We cauidn’t have qote eet hed in the carly days without their facilities. 
2h. Please respect this privilege 


From now on, meetings will bein OTC House details page 
and be on your best behaviour at all times, ee youl 


ive and well and 
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The ist Australian Personal] Camputer Show indicated that the ATARI is 


living quite nicely in Australia, thank you very much. ee sa full report on the show in 
this issue, In addition, there’s a couple of games, a demo, a Greek alohabet, the solution ta 
Deggies and articles on number systeme and the ATARI’s ae sound capabilities, We also 


present our first. article on FORTH. I’m very pleased about this one, as there’s a lot of 
members interested in FORTH at the moment. A= we are aiso getting FORTH in the Software 
Exchange, it seems like an opportune time to begin a FORTH Ssercial Interest Group. Who'd 
like to get it started? | 


Last issue, I promised a discussion of ANTIC modes 4&5. As it happens, Tim Kilby beat me 
to it. He has given a very good coverage in the December 19527 issue oF BYTE, 50 1% seems 
pretty pointless to repeat what he has already said. His article alec includes an ANTIC 
made 4 & 3 character editor. (If you don’t get BYTE, thers’s also an ecitor in COMPUTE! 


February 1%o3,) 


I’m extremely pleased with the increase in the number of article submissions recently, but 
we still need more. How about some utilities and business applications? And what about 
education? We haven’t had a single s: Ubmission of educational software yet! 


This issue ends our first year of publication. As promised in lesus No.l, we are now ready 
to award $100 worth of software to the author of the best articleis) published in the last 12 
manths. This is your chance to shaw that you're truly interested in the magazine by 
submitting your vote, Simply put the name of the author who you think most deserves the 
prize into an envelope and send it te Tne Editor, INSIDE INFO, G.P.O, Box 4514, =yeneys 
N.S.W, 2001, All votes must be in by the next meeting, i, End May, iva. If you’re a recent 
member and don’t have all the back issues, then just base your vote on the issues you have 
seen. We have now got well over 150 members, sa let’s see 150 votes! 


Next issue 15 on scrolling. I’ve received an article on scrolling from one of our New Zealand 
members, It includes a really excellent demo of horizontal scrolling done properly! I’ve also 
got a vertical scrolling game in mind, but no promises on In addition, there will 
most likely be an assembler written in BASIC and at least cone ather game. Bye ‘til then, 

- Garry Francis 
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tst AUSTRALIAN PERSONAL COMPUTER SHOW 


hy Garry Franas 


The ist Australian Personal Computer Show tegan at 7,50 4.M, on Thursday, loth March with 
a champagne breakfast in the Green Room at Centrepoint. (No corn flakes far yours truly on 
ly ne Atternsy General cf 


this morning!) It was here that the show was officially opened by T 
N.S.W. The Honourable Mr Paul Landa: Quite surprisingly, the finale was 
synthesizer which sounded unmistakably like 5.A.M., the Software Automatic Mouth available 
for the ATARI, The crowds started rolling in at ? o’clock and they just didn’t stop for 2 
days! There was a long queve for tickets for the entire show, Fre show publicity had 
suggested that attendance would be about 19,000, Actual figures quote ed after the show were 
35,000'' The show was a huge cuccess for all concerned and it was aterriric feeling tobea 
part of it. There was an air of interest and enthusiasm everywhere you went. If you missed 
it...well, I’m just glad I didn’t! 


gIVEn by a speech 
ic 


We had a stand at Computer Club Corner on the Exacutive Level tthe ard floor of the 
exhibition complex), This was provided to us free courtesy of the organisers, I spent most 
of the first 2? days manning our stand, but I devoted virtually the entire Srd day to 

discussions with various exhibitors, As aresuit of this; we have come up with a number of 
great deals - cheap discs, books, software and modems and guest speakers for meetings, 
Make sure you read every word of future issues of INSIDE INPO in order ta avoid missing 

out on anything! . 


The major attraction for ATARI owners (or potential owners! was, of course, the 
Futuretronics stand, I must admit that I was extremely pleased to see them thera, as early 
advertisements for the show gave the impression that they woulda not be present. They hac a 
very nice display, but it did not have the size ar impact of Acple, Commodore, Texas 
Instruments and others. I was promised all sorts of new product information and prices, but 
despite a follaw-up phone call, it had still not arrived at the time of writing. The following 
information is from personal observation and research, 50 it may not be accurate, 


The most amazing new product was the WICO Trackball ($89), It is absolutely marvellous. 
You haven’t lived until you’ve played Centipede with the trackball! They also had the WICO 
joysticks ($24 and $40) and ATARI’s remote control joysticks (#115). 


ATARI 400 owners will be interested in a new full stroke keyboard which sits directly in the 
computer to replace the old membrane keyboard. A Futuretronics salesman said that this 
was developed by their own research and development team.ft didn’t know they had one, 
Price not known at present, 


New ATARI software includes Galaxian and Defender (about $39). A plethora of new ATARI 
software has been released (or annoaunced) in the U.S.A., but is not available here just yet. 
Of particular interest is an excellent new ROM based word processor. New games include 
Gix, Dig Dug, ET Phone Home, Superman III, Star Trux and Donkey Kong. Educational 
programs include Juggles’ Rainbow and Juggles’ House, There is also some interesting 
releases from APX including Galahad and the Holy Grail, Salmon Run, Typo Attack (a typing 
tutor in the form of a game), Quarxon, Real Estate Cash Flow Analysis, BASIC XA (an 
extended ATARI BASIC) and lots more. Availability and prices for these items are not yet 
known. 


Futuretronics also distributes selected products from Datasoft and Synanse, New products 
from Datasoft include the long awaited BASIC compiler ($207.95), although at this price, I 
think the new compiler from Monarch Data Systems, F.O. Box 70/7, Cochituate, MA 017728, 
U.S.A. will be more popular. It is $67.75 in the U.S.A. Zaxxon has been advertised in ve 
U.S.A, and we hope it gets here soon, 


Futuretronics also had Astro Chase, the amazing new game written by Fernando Herrera for 
his new company called First Star Software. It’s 4 space game with multi-directional 
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ecroalling sq mnewhat similar to the arcade 


I’ve left the best ‘til last, Yes, the new ATARI 1200XL was also on displ. “y itis not yet 
known when it will come to Australia (or if in fact it even comes to Australia}, but it’s worth 
mentioning. I had a chance to have a good long play with it tewards the end of the shaw and I 
must say it looks and feels great, The keyboard layout is much the same as the 400/500 
except that the BREAK, Inverse Video, SYSTEM RESET and other consale keys are moved to 
a row at the Lack of the keyboard in addition to 4 function ich (Fl to F4) and a HELP rey 
for Carrying out system diagnostics, The function ct ae ay Ge used to move the cursor 
around with one keystroke. SHIFT plus a function key sends the cursor to the respective 
corners of the screen display, CONTROL plus a functicn = y¥y disables ihe keyboard, DMA or 
Keyboard click (Fi to FS respectively) or toggles between the familiar ATARI character set 
and an international set (F4), It has an enhanced 14k Gnerating System which allows 
redefinition of the entire keyboard, You can now directly access ANTIC modes 4,5, 12 and 
14 (the latter are often referred to as GRAPHICS 4+ and 7+), by using GRAPHICS iz to is 
respectively. This is something that I believe should have been in the original Cperating 


System right from the start, 


Now for the bad news. The 1200XL comes with 64k RAM as standard and is completely 
sealed {no more RAMdiscs or &0 column boards), The Operating System loads from ROM into 
RAM, hence there is no usable increase in RAM when using BASIC, etc. The Operating 
system may be disabled to give you 47k of RAM, but you are left entirely on your own. No 
CIO! No vertical blank interrupt service routines! No device handlers! No floating point 
package! Nothing! There’s only one cartridge slot ino more Monkey Wrenches) and only 7 
joystick ports (no more peripheral interfaces through Ports 3 and 4), The 45027 is supposedly 
a custom made job. The sound is supposed to be cleaner and the colours are supposed to be 
100% more saturated with no more colour bleeding, but it all looked and sounded the same to 
me, Overall, a very nice computer if it had come out 4 years ago (before the 400 and 300), but 
limited by its inability to be expanded, There have been several full reviews published, so 
for more details see ANTIC February/March 1983 (written by an ATARI employee and hence 
very favourable), M.A.C.E. Journal January 1?82 and COMPUTE! March 1983, 


Also big news from Futuretronics was that they are ready to expand the ATARI in Schools 
Project (ASP) into N.S.W. If their tender is successful, they would offer ATARI computer 
packages to schools at ridiculously low prices thanks to financial assistance from ATARI 
themselves. I wish them luck in this venture, as the ATARI 400/500 is undeniably the best 
computer available for school use. Apart from which, when parents are later persuaded to 
buy a home computer, they will naturally be swayed by the fact that little Johnny or Belinda 
uses an ATARI at school, They would then be buying the best home computer on the market. 


The most exciting attraction at the show was no doubt the presence of Winfried Hofacker 
representing his company Elcomp Publishing Inc. He had travelled all the way from Germany 
especially for the show. Elcomp carries a tantalising range of books, software and hardware 
projects for the ATARI 400/800, They had 2 books which have been available overseas for 
some time, but were virtually unavailable here. These are "ATARI BASIC — Learning by 
Using" and "Games for the ATARI", Also available were a number ne new books, viz. "How ta 
Program Your ATARI in 6502 Machine Language", "FORTH on the ARI - Learning by Using" 
and "Astrology - Use Your ATARI Computer to See the Future", The books on FORTH and 
machine language were especially popular amongst those manning our stand (I think 
everybody bought the book on FORTH). Another very interesting book called “Hackerbook 1" 
will be available around May. This is full of hints and tips on all the more difficult topics 
for intermediate to advanced programmers. Also coming at a later date is a book on 


applications in FORTH. 


Their software is also quite interesting. They include discs of programs from the BASIC and 
Astrology books, a word processor, machine language monitor, tracer/debugqger, macro 
assembler, moon phases, biorhythms, birth control and a number of business programs for 
mailing lists, inventory, invoicing, appointments and 4 very interesting one which converts 
your ATART into a cash register. A popular program was Elcomp’s version of FORTH, This 
is an extended fig-FORTH with editor, 1/0 package, joystick control, graphics, sound, 
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and trig functions. Or if you're just a beginner, you may a a a consider their learn-FORTH, 
which 16 a subset af fig-FORTH and is aleo available on cezsetia, 


For the hardware buff, there is a number of interesting ac 7 ly in the rorm of kits 
with full construction details and software where applicable, These include an Enson printer 
interface which uses Ports 3 and 4 instead of the S50 interface madule, an RS232 interface, 
EPROM burner and do-it-yourself cartridges, 


I met a lot of nice people at the show, but Winfried oe have to take the cake. Hels 
bubbling with enthusiasm for his products and, unlike many others in the industry, he is nota 
crook. Everything 1s reasonably priced. He is presen sntly looking ror distributors for his 
products in Australia ang hopes to sell them at the same price asin tha U.E.A. A product 
information sheet is enclosed with this issue to give you an idea of prices. He has agreed to 
sel] bulk quantities to the club at dealer prices, so let us know if you’re interested. We will 
not be persuing this (or any of the other many offers mentioned in this report) unless 
sufficient people respond! So if you don’t get off your butt and say samething, nothing will 
happen, 


Wizware 1S a very paige new range of educational software being released by Ashton 
Scholastic Pty, Ltd. h.0O. Box 27%, Gosford, 22! at The first releases on 15th May will be The 


Match Game and Turtle Trax on eae Foy $27 Fo each and The Microzine and Nerd Alert on 
disc for $37.95 each, They did not have the ATA ihe programs on display, but the &4pple and 
VIC-20 versions looked quite goad, They are also expecting Bank Street Writer, the famous’ 


word processor ceveloped for chilaren, yet powert Ful enouoh that adults are clamouring for it, 
(See the review in TIME magaringe 14th March, 1753.) Tt selis ror $47,295 1n the U.5.4,. and 
should be similarly priced here. 


At long last, the excellent range of Thorn EMT software is ready to be released in Australia, 
They are presently looking for a distributor, but if all goes well, the programs will be 
available at the end of April. Prices are not yet available. If you weren’t at the show, you 
might like to contact Thorn EMI, 201 Castlereagh street, Sydney, 2000 and ask for their 
catalogue. There are currently 4 cartridges and iS cassettes, The cartridges are Kickback, 
soccer, Submarine Commander and Jumbo Jet Pilots The latter 3 are superb. The cassettes 
are for Home Financial Management, Darts, Snooker and Billiards, Pool, Dominoes and 
Cribbage, Humpty Dumpty and Jack and Jill, Hickory Dickory Dock and Baa Baa Black Sheep, 
British Heritage Jigsaw Puzzles Vol. 1 & 2, European Scene Jigsaw Puzzles Vol. 1 & 2, 
Supercubes and Tilt, Figure Fun, Compute 4 and Reversi, Qwari and Bull and Cow. We will 
have full reviews of these programs in future issues and demonstrations at future meetings. 
There is also more to come in the future. One of the more interesting projects will be the 
co-release af the movie "War Games” and the computer qame of the same name. I am told 
that it is about a boy who uses his ATARI to tap into the Pentagan computer and cause all 


sorts of havoc: 


At the time of writing, Dick Smith Electronics is selling a pair of ATARI paddles for $71 
(normally $39.95). You'd be mad not to buy a pair at this price. He’s also selling the 
Dataphone direct connect modem for $1797, ATARI compatability doesn’t seem tobea 
problem. 


Talking about modems, Electro-Med now has a version of the Sendata 700 series 
answer/originate acoustic coupler especially for the ATARI, They offered us 4 very good 
deal on bulk orders. The normal retail price is $276,280, but we can Duy it at the retailers’ 
price of $2709.16 to $239,04 depending on quantity. AS we are looking into a Bulletin Board 
service and computer cammunications 15 rapidly becoming more popuiar, now 1s the time to 
start thinking about a modem. Please let us know if you’re interested, We need to huy Zi to 
get the cheapest price, 


Imagineering did not have any ATARI software on display, however I did get invited ta 


contact them atter the show. They have a wide range of sottware from companies such as 
Sierra On-Line, Broderbund, Roklan; SSI, Sirius, LIK Enterprises, Yisicorp, Eduware, PDI, 
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Tnfocom, JV Software, Quality Software, a etc, etc, etc. If you see 2 Eragram you want 

in an Overseas magazine, then ask your dealer tu Getitin, If it’s recent or popular, there's a 

good chance imagineering will have it, A couple of new ones Of interest ara Gorf and Ultima 

Ii, ] am told there is a lot of new stuff coming soon, They also distribute the i ESPEN SED Ae 
fFATARIS 


oftware 1LYES 


“Your ATARI Computer" by Poole, McNiff and Cook and "The Book o i 
tags off mine, but I think 


edited by Stanton, Wells <— Rochowansky, I’ve yipped the pric 
they were $25.75 and $279.75 respectively, 


For any ovt of towners, you can now order all the Imagineering software froma 
Newcastle-basead mail order house called Micro-Educational, 17 Park Road, Garden Suburb, 
2260. Phone (049) 43-4505, Ring ar write and ask for their catalogue, 


A rep from Videoactiv informs us that they will be carrying a range of cartridoes from 
Spectravision. The first ane is called Goldmine and will retail for about $45, Others are 
waiting to be shipped from Hong Kong, Spectravision is already known for their Quik-Shot 
joystick ($24.95), They also have a range of VC5 cartridges. Far further details, cotact Tony 
King at Videaactiv, G.P.O. Box 4444, Sydney, 2001 or phone 7O?-244%, 


Books. Books. Books. I never dreamed there could be so many new ATARI books. There’s 
honestly something for everyone, 


The Australia and New Zealand Book Co. had "BASIC Exercises for the ATARI" by Lamoitier 
(SYBEX) for $271,50, 


Doubleday Australia will be carrying a number of new titles. From Creative Computing Press 
comes "The Creative ATARI" by Small, mall and Blank $15.95 and “Computers for Kids 
(ATARI Edition)" by Sally Greenwood Larson $4.75, From ARC soft comes "ATARI Computer 
Program Writing Workbook" by Alan North $4.95, "101 ATARI Computer Programming Tips 
and Tricks" by Alan North $5,95 and "21 New ATARI Computer Programs for Home, School and 
Office" again by Alan North €8.95, There are 3 interesting titles in the series of Handy 
Guides from Alfred Publishing at $3.95 each. These are "How to Use the ATART Computers” 
by Michael Boom, “Understanding FORTH" by Joseph Reymann and "ATARI Graphics" by 
Michael Boom. Note that all the Doubleday prices are U.S. prices, 50 you can expect to pay a 
couple of dollars more in Australia, 


The Technical Bookshop had its usual tantalising range of computer books including "Picture 
This” for PILOT users by David Thornburg $14.75, I also grabbed their Osborne/ 
McGraw-Hill catalogue which had a very interesting book called "ATARI 400/200 Disk Guide® 
by John Taylor, Availability and price is not yet known, 


One new book that I didn’t see anywhere was "Inside ATARI BASIC" by ATARI’s Sales 
Training Director Bill Carris, It’s published by Reston. 


We were approached by Prentice-Hall of Australia, who had “The VisiCalc Books ATARI 
Edition" by Beil $23.25, “ATARI PILOT for Beginners” by Conlan $23.25 and "FORTH 
Programming” by Scanlon $24.25 as well as a number of old titles. 


We were also approached by a company who will be distributing COMPUTE! Books. They have 
several books of interest to ATARI owners, including the well known "COMPUTE!’s First 
Book of ATARI", "COMPUTE!’s Second Book of ATARI" and "Inside ATARI DOS" by Bill 
Wilkinson. I have got all 3 and the latter 2% in particular are excellent. Z new titles are 
"“COMPUTE!’s First Book of ATARI Graphics" and "Mapping the ATARI". I saw the latter 
book and it is superb! Another book announced in COMPUTE! is eee ke First Book of 
ATARI Games". The rep hadn’t heard of this one yet, but they will no doubt carry it as well, 
All books are expected to retail for about $274 except for "Mapping..." at $28 and “w+DOS" at 
$234, We hope to be getting these books direct sa that members can get them at discount 
pricese Again let us know if you’re interested as we need to get an idea of quantities, 


We’ll have reviews of lots of these books in future issues. 


all, that just about wraps it up. I’d like to offerar 
he Seed aut on our stand, but especially to Conputer Hav Fr gS: 
Bamford, Jeff Maddock, Tony Dinailo, Tony Fee-e ano Jamie athas who each > 
one full day on the stand and Barry Williams who not only cevat 

but also organised our stand. Great job Barry! I’d also li Sel 
Australian Exhibition Services and the sparsors - Australian Personal Computer magazine - 
for making it all possible. 
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in next year, only bigger and stronger, so set aside 15th - 17th March i764 
alian Personal Computer Show. 
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SOLUTION TO DOGGIES 


by Garry Francis 


Here is the solution to Stan Ockers’ Doggies which was published in the last issue, Don’t 
look at the solution until you’ve had a good go yourself or you’ll take all the fun out of it! 


Assume the possible positions of the doggies are numbered from 1 (on the left) to 7 (on the 
right). The starting configuration would therefore be white nie in positians 1-3, a blank 
space at position 4 and brown doggies in positions 5-7. There are 7 possible solutions, each 
being a "mirror image" of the other. One possible solution is given below. See if you can 


find the other one, 


Hove | : Move Move 
No. No. No. 
: Brown from 5 to 4 : Brown from 7 to é 11: Brown from 4 to 2 
; White from 3 to 5 ; White from 5 to 7 Z2: Erown from 6 to 4 
3: White from 2? to 3 : White from 3 to 5 13: White from 5 to 4 
+ Brown from 4 to 2 ; White from i to 3 7 14; White from 3 to 5 
uv: Brown fron & to 4 10: Brown from 2 to i 153 Brown from 4 to 3 
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SOUPED UP SOUND 
by J, S, Masters, Howick, New Zealand 


Most people are amazed when they first realise that the ATARI has 4 voice sound anc all 
those weird distortions, but it is casable of far more! There’s also filters tharmeonic and 
normal), joint voices, variable clocking frequencies, etc, In arder to harness all this from 
BASIC, POKEs have to be used instead of the SOUND command, 


The hardware registers from 23740 [$D200] to 32747 [¢Dz07] are the normal volume, pitch 
and distortion for each voice. The even ones (327460, S3747,..) are POKEd with the pitch. 
The odd ones are POXEd with the distortion#i4+volume, For example, PORE 52760,121(POEE 
we761,1468 15 equivalent to SOUND 0,1271,10,8, The hardware register at 32740 [$D2Z05] is 
called the AUDio mode ConTroL eoratet (AUDCTL) and does numerous things. It may be 
POKEd with a number from 6 to 255 (where OQ is normal) in accordance with the following bit 
allocations: 
~ Bit 6 changes the normal clock frequency from 44kHz to 15khz. This has the effect of 
greatly dropping the pitch, 
- Bit 1 puts a high-pass filter on channel 2. It is clocked by the channel 4 divider, 
Only sounds higher than channel 4 will be heard, 
~ Bit 2 puts a high-pass rilter on channel 1, It is clocked by the channel = divider, 
= Bit = 3 clocks sae 4 ea channel ce This enables 16 bit resolution, therefore a 


- Bit 4 clocks channel 2 wath eeannel i, 

~ Bit 3 clocks channel 3 with 1.7? MHz, This increases the frequency by an immense 
amount, 

- Bit 6 clocks channel 1 with 1.79 MHz, 

- Bit 7 changes the 17 bit poly counter to ? bit. This has the effect of increasing the 
repetitions of the distortions, 


Example 1! 
FOKE 53768,30:REM Set bits 1-4 
PORE 53760, 545POKE 53761,136:REN SOUND 0,54,8,8. Also 53741,168 sounds good, 
POKE £3742,254 
POKE 53764,254 
POKE 53764,220 


Example #3 
POKE 53768,254:REM Set all fits except 
POKE 53740, 2543FOKE 53741,104 
FORE v7 62,204 
POKE 53764,25 
PORE 33744,2203REM Affects the speed 


Another POKE that can be used is 53775 [#DZOF], This is normally =, but if it is POKEd 
with 2525 it turns on a harmonic filter, This can really give weird and wonderful music when 
used properly and with the right notes, Voice Gis the actual filter, It picks harmonics ovt 
of voice 1 and provides the volume and distortion (pure tanes are best). Voice 1 provides the 
pitch. Voice # and 3 are not used. 


Example 3; 
10 FORE 33762,Z43;FOKE 55741,148 
20 POKE 33775,259 
30 FOR T=0 TO 255 ‘STEP G,Q5¢POKE 53760, T:NEXT I 


For further information, see "De Re ATARI" Chapter 10 (or "The ATARI Tutorial; Part 7" in 
BYTE, March 1982) and the Hardware Manual. [Both are in the reference library - GF.] 


GRAB AN APPLE 
by Jamie Athas and Garry Francis 


This game is designed in ANTIC mode 4, a character mode which allows up to 4 colours to be 

displayed within the same character. Each character is set up in a 4 by © grid giving a total 
screen resolution of 140 across by 1927 down. To use ANTIC mode 4, it is basically a matter 
of changing a GRAPHICS 0 display st, then redefining the character set, You are welcome 
to experiment with the techniques we have used. The game was originally in GRAPHICS 4, 
but ANTIC mode 4 increases its visual impact tenfold, 


How To Play Grab An Apple 


This is a game where you control a giant lengthening caterpillar, and have to eat the apple, 
The quicker you eat the apple, the more points you get, but if you take too long, it will 
disappear to anew location and you will lose five points, If you run over yourself or hit the 
wall, you lose alife, You have 3 lives per game, Every time you eat an apple, the caterpillar 
is "cut up" and your speed increases by 1 km/h, 


Program Notes 


The concept behind this game is a familiar one, but don’t let that fool you. This game is 
totally original, 


When the program begins, a title page is scrolled up the screen, This is for visual effect 
only and serves no useful purpose, however anybody wishing to examine the code will find it 
quite interesting, Firstly, let me assure you that it is not genuine scrolling, but display list 
manipulation, It works by writing your own display list Qines 1010 to 1020) consisting ofa 
. screenful of blank mode lines and a few GRAPHICS @ lines which begin at the bottom of the 
screen. (This 15 cheating the system and I’d strongly suggest you avoid such things unless 
you know what you're doings) The number of blank mode lines is gradually reduced using the 
simple FOR..NEXT loop in line 1040, so that the GRAPHICS 2 lines slowly creep towards the 
top of the screen. The technique is crude, but it works. You'll notice a certain degree of 
jerkiness, as the movements are not synchronised with the vertical blank. You can 
experiment with the speed by changing the delay (i.e, FOR W=1 TO 15:NEXT W) in line 1040, 


When the scrolling is finished, the character set is copied fram ROM to RAM (ine 1070) using 
the machine language routine out of Doggies, then 7 of the special characters are redefined 
(line 1100), I was going to draw up some pretty pictures to show how this is done in ANTIC 
mode 4, but unfortunately I ran aut of time. 


The screen is then cleared and another custom display list is created (ine 1140), this time 
for a screenful of ANTIC mode 4 with = lines of GRAPHICS 6 at the bottom for scoring 
information. If you want an entire screen of ANTIC mode 4 in your own programs, then 
change the loop to read FOR I=DL+é6 TO DL+272, This completes the initialisation. 


If you care to draw a flowchart of the main program (lines 270 to 370), you‘ll notice that it 
follows a very efficient and logical flow, Beginners should take particular note of this. It 
is something you should always strive for to achieve peak efficiency without losing 
readability. This is something I can never stress too much. I get far too many program 
submissions which have a spaghetti-like structure! As a result, they run slow and use up 
about twice the memory necessary. In Grab An Apple, the effort has paid off, Speed is no 
longer a problem despite the delays for sounds, In fact, I had to insert a lengthy delay loop 
(line 240) to slow the game down, The game becomes more difficult as it progresses by 
reducing the length of this loop every time you eat an apple, You’ll also notice a certain 
"beat" to the program, which starts the adrenalin flowing as the pace increases, (This was 
the secret to Space Invaders’ success.) You have to eat 50 apples in one game to reach the 
fastest speed. I certainly can’t doit! If you want to see the game at maximum speed, change 
the loop to read FOR I=1 TO 1:NEXT I, 


Anyway, I hope you enjoy playing Grab An Apple as much as Jamie and I did writing it, 
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1 PEM ESETSEESSSAZ LESS Sch dee i tt ssdt4s 
ZAM F GRAB AR APPLE + 
a FeM # Janie Athas &@ Garry Freucis 4 
4 KEM $ Published by Atari Cospcer ¢ 
2 REM # Ents scle (N.S.H,) } 
& REM # April 1983 } 


7 REM PHBH HAH 

10 GOSUB 1000 

20 LIVES=3?SFEED=1 {SCORE=0 

30 ? CHRE(125) COLOR 33SPLOT 38, 0DRAW 

TO 38,20:DRANTO 1,20;DRANTO 1,0} DRANTO 
39,8 

40 H¥=4SHY=3:DX=1 :DY=0 SHEAD=166 

20 POSITION 4,213? "LIVES! "{LIVES SFOS 

ITION 27,2137 “COUNTDOKN" 

40 FOSITION 4,223? "SPEEDS "SSFEED}" k 
a/n" 

70 POSITION 4,233? “SCORES "3 ;COLOR HE 

AD:PLOT HX,HY 

80 POSITION 11,233? SCORES” “3 iCOUNT=5 

90 COLOR 323FOR I=1 T0 2 

100 Z=INT(S4SRND(T) )4+2¢0F Z=HX THEN 10 

110 PLOT Z,2 

110? 

120 Z=INT(iSXRND(I))4+2¢IF Z=HY THEN 12 

0 

130 PLOT 2,Z:DRAWTO 37,Z:NEXT I 

140 AX=INTCSAXKRND(T) +2 AY=INT CLS¥END ( 

1} }+2 

150 LOCATE AX,AY,Z32F Z<>32 THEN 146 

1460 COLOK 34¢PLOT AX,AY:FOR I=i0 TO @ 

STEP -0.5:SOUND 0,100,10,0:NEXT TSOUN 

D 0,0,0,0 

170 FOSITION 31,223? COUNT;" "SEX=HX?B 

Y=HY?ST=STICK(Q)3IF ST=15 THEN 72 

18@ PORE 77,0:IF ST=14 THEN y=) {DY=-1 

*HEAD=164 

190 IF Sf=13 THEN DX=0:DY=1iHEAD=145 

200 IF ST=7 THEN DX=1:DY=0}HEAD=144 

210 IF ST=i1 THEN DX=-1:DY=0+HEAD=147 

220 HX=HX+DXSHY=HY+DY {LOCATE HX,HY,ZtS 

OUND 0,100,12,4:COLOR 141°PLOT 8X,BYiC 

ULOR HEAD}PLOT HX»HYSOUND 0,0,0,9 

230 IF 2<>32 THEN 760 

240 COUNT=COUNT-1:IF COUNT THEN FOR I= 

1 TO SI-SFEEDSNEXT I:GOTO 170 

- 290 COLOR 32:PLOF AX, AY?SCORE=SCORE-5} 

GOTO 30 

2460 IF 7<>34 THEN 300 

270 FOR I=1 TO SO:SOUND 0,1,8,8NEXT I 

>SOUND 0,0,0,0 

280 SCORE=SCORE+COUNT ¢SPEED=SFEED+1 {IF 
SPEEDS THEN SPEED=50 

290 POSITION 11,22:? SPEED;" kev/h" GOT 

0 80 

300 FOR I=5 TQ 255 


sDRAWTO Z,19¢NEXT IF OR I= 


STEF 10:SOUND 0,1,1 
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CPIM AT THM 0,0060 
co Oboe UF Soa Beth i LIVES THEN 30 
320 ie Q.21$% CHS (154) | CHES (156 
Legon 134) ,iF ccORE: HI THEN HI=SCCRE 
= PrSTVION 11,257 “YOUR SCORE: °550 
PPOSITION 11,72¢2 "HIGH SCORES "SHI 
ve ee DO YOU WANT ANOTHER GAME (Y 
{NY2"5 
350 GET #1,Z2¢0F Z=ASCC"Y") THEN 20 
360 TF Z<28500"N") THEN 350 
370 CLOSE F1fFOKE 82, 73F0KE 1046,START+ 
BSGRAPHICS 8 END 
1000 START=FEEK(106)-8 
: 
1010 GRAPHICS 4:FOKE S59, 03FUKE 708,78 
‘FORE 709, 108°FOKE 710, 141 FOKE 711,543 
DL=PEEK (S40) +258%PEEK (541) 
1020 FOR T=BL+3 TO DLt+PeiPOKE T,21Z2:NE 
XT TiPOKE OL+27,71:POKE DL+78, PEEK (88) 
SPORE DL+79,FEEK (39) 
1039 FOR [=DL+30 T@ DLtSS¢POKE 1,7:NEX 
T TSPORE DL4+34,45:PGKE DL+35,PEER (S40) 
*POKE DL+36,PEEK (S41) SPORE 87,2 
1040 POSITION 4,03? 34;"UAMIE ATHAS"SF 
OSITION 1,12? 44; "ard garry francis" 
1059 POSITION 6,25? #6; "PRESENT" }POSTT 
ION 3,43? F4;"qrab an apple sFOKE 559, 
34 
1040 FOR T=94 TO 0 STEP -143FOR DL+3 
TO DL+Z4sPOKE J,ISFOR W=1 TO 15iNEXT 
WENEXT JONEXT I 
1070 DIM ML¢(32);FOR T=1 TO 323READ At 
ML3(T)=CHRS(A) NEXT Tt CHSET=2545T ARTS 
X=U5R (ADR (MLS } 57344, CHSET } 
1080 DATA 104,104,133,204,104,133,203, 
104,133,266,104,135,205,142,4 
1070 DATA 140,0,177,203,145,205, 134,26 
64249 ,230,204,230,206,202,208,240,96 
1100 FOR T=CHSET+@ TO CHSET+43¢READ At 
FOKE T,A:NEXT I 
1110 DATA 60,755,797 ,63,2755,755,755,60 
710,8,20,85,85,85,95,20,239,237 239,17 
6,254, 204, 204, 1/10 
1120 DATA 40,60,196,192,255,255,705,25 
cy fatetp Dob peop 2s 190 190,460,466 
1130 DATA 248,248,205,205, 799,200,248, 
LAG AZ 547 9255) 295) POG 20 A 47 
1140 GRAPHICS OFFOKE S59, 03PURE 14,443 
FOKE 53774 ,64¢FOQKE oe FORE 83,37 3F0K 
E 7/5231 
1150 FOKE 708,54;F0KE 709,1833F0KE 710 
PZAGsFORE 711,90 POKE 7546, 57ART 
1160 DL=FEEK (S40 )+256¥FEEK (5413 SPOKE D 
L+3,493FOR I=DL+6 10 DLt25;POKE T,4¢NE 
A 
1170 OPEN 41,4,0, °K 2° HI=0;POKE 559,34 
+RETURN 


KE 104,START- 





NUMBER SYSTEMS 
by Brenton Vettoretti 
Welcome to the mysteries of number systems. In this article I will a t to explain binary 
and hexadecimal number systems. Bath these systems should be understood to properly 
implement redefined character sets, player-missile graphics, modifi 2 display lists and so 
Ons 


ith 

rt 

e 
= ot 


The number system we use in everyday life is the decimal system, which has a base of 10 and 
uses the numeric characters Sto ¥. It uses igneous Significance io ial tenths, 
units, tens, hundreds, etc For ex rample, the number 2Svs,45 may De written as 

(Zx 107) + 104) - + (xid}) + axi0%) + @x107l) + Ssi074) 


The number system the ATARI uses in its everyday lifeis the binary system which has a 
base of 2 and uses the numeric characters 6 and 1. It uses positional significance ta 
represent quarters, halves, units, twos, fours, etc. For example, the binary number 1610,01 
may be written asi 

(tx27) + Oxe4) 4 (ixdh + (ox2") + x24) + x27“) = 10.25 decimal 


Hexadecimal numbers (often abbreviated to hex) are used as a shorthand representation of 
their equivalent binary form. The system fas 4 base of 14 and uses the numeric characters 0 
to % as well as the alphabetic characters A to F to represent the numbers i0to 15 
respectively. It uses positional significance fo represent sixteenths, units, sixteens, 
thirty-twos, etc, For examp! e, the number Av, mee he written asi 

(Ax1G°) + (x16°) + (Cxi& ©) = 169.75 decimal 


The table below shows binary and hexadecimal numbers with their decimal equivalent, 
DECIMAL HEXADECIMAL BINARY 


0 0 000 
i 1 6961 
Z Z 010 
3 3 O11 
4 4 0100 
3 a 101 
& 6 0110 
i 7 01il 
8 8 100 
} 3 1001 
10 A 1010 
ii B 1011 
4 C 1100 
13 D 1101 
14 E 1119 
13 F iii 


To convert a number to its decimal equivalent, the most significant character is replaced by 
its decimal equivalent and multiplied by the base, This is repeated for the next significant 
Character and added to the previous result, This process is continued until the least 
Significant character has been added. The final result is the required decimal number, 


Confused? I think everyone is the first time, Try to read fram the beginning again, then 
work through the following examples. Be patient, as this is really logical when you can 
follow it. Unfortunately; it 15 very hard to learn to count again in a different base when you 
have been taught base 10 from your first day at school, Remember the first time you tried to 
program in BASIC? As with BASIC, you will find a knowledge of other number systems to be 
extremely useful, On with the examples... 
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First we will convert the binary cumber 101100 te ite decimal enuis Zien 


rhe 


1 @ 1 1 6 6 
(start) x2 
z +0 
Z 
ve 
4 +1 
10 +1 
ii 
xe 
2? 40 
Le 
Be 
44 +4 
(finish) 44 


1.8, 101100 (binary) = 44 (decimal) 


Next we will convert the hexadecimal number 10F4 toa its decimal equivalent: 
| 1 QO F A 
(start) x16 replace with 
14 +9 decimal 
16 equivalent 
xié 


zo +15 
Z71 
4336 +18 
(finisn) 4344 
1.6, LOFA (hexadeamal) = 42344 (decimal) 


If you followed the simple arithmetic above, I am sure you will see how easy it is to convert 
from a strange base to decimal. It is equally simple to canvert from decimal to a different 
base, The decimal number 15 divided by the base to form a quotient and a remainder. The 
quotient is then divided by the base, This is repeated until the quotient is zero. The 
remainders formed by the conversion represent the number in the new base, The last 
remainder is the most significant digit of the new number, Once again, if you re-read the 
text and work through the following examples, you will see haw simple this is. 


First we will convert 224 decimal to binary! 
Quotient Resainder 


(start) 7234/2 = 118 0 (least significant digit) 
1i8/2 = 99 0 
wife= 29 i 
29/2 = 44 1 
MW/z= 7 0 
7f/2= 3 { 
3/Z = 1 j 
(finish) i/2= 9 1 (most sicnificant digit) 


Le, 236 (decimal) = 11101100 (binary) 


Now we will convert 734 decimal to hexadecimal: 
Quotient Remainder 
(start) 234/16 = 14 12 replace with hex eauivsient C (least sisnificant digit) 
(finish) 14/16 = i] 14 replace with hex equivalent E (wast sionificant digit) 
ie. 234 (decimal) = EC (hexadecimal) | 
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One further example to convert 42245 decimal to hexadecimal 
Quotient Feszinder 


(start) 627345/16 = 3a34 7 (least significant dicit) 
3896/16 = 7243 8 
243/16 = 15 3 

(finisn) 15/14 = 15 replace with hex equivalent F (most significant digit) 


1.6, 627345 (decimal) = FES? (hexadecimal) 


As stated earlier, hexadecimal numbers are a shorthand representation of binary, This can 
be seen if we split the binary number into groups of 4, Zeroes are added if necessary to 
complete a group of 4, Each group may then be converted directly to hexadecimal. For 
examples 

236 decinal 

734 decisal 


Binary 1110 =1100 
Hexadecimal o£ C 


This article is really only an introduction to different number systems. The techniques 
shown will allow you ta convert from any base to any base, To keep things simple in the 
early days, I suggest you use decimal as a "go-between", as any errors are more likely to 
stand out. The conquering of number systems opens many doors for future discussion 
including binary addition and subtraction, binary multiplication and division, logic elements, 
arithmetic logic units and the whole principle behind digital electronics. 


WWW 


New Members 


D.H. Ackland, Miranda 
Craig Armsworth, Bilgola Plateau 
Guy Bao, Newtown 
Ken Bosward, Lugarno 
RJ. Carey, Padstow 
Graham Cook, Penshurst 
Francis Curnow, Bankstown 
Paul Dierking, Maroubra 
P.J. Egan, Glen Innes 
Brian Halligan, Mount Colah 
Lindsay Heron, Speers Point 
Russell Holmes, Eleebana 
Gregory Hudson, Balgowlah Heights 
Arthur Manrique, Kogarah 
K.A, Nacinovich; Mona Vale 
Peter Oldham, Dampier, WA. 
R:HK, Cnelow,: Millfield 
R.A, Penney, Winston Hills 
Allan Percy, Redhead 
Karl Pirchmoser, Tenterfield 
C.V, Rosser, Alderley, Qld, 
R. & D, Scott, Umina 
. Brian Simmons, Tennyson 
Carey Smith, Santo, Vanuatu, New Hebrides 
Brian Soutter, Davidson 
Tan Steer, Emu Plains 
Chris Townsend, East Sydney 
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INFRODUCTION TO rORTH 


BY JGHN MATTES 


The end of November, 1982 was a pretty exciting time; we took delivery of 
our new disk drive and Extended Fig-FORTH. Since then I have had a great deal 
of fun using FORTH and in this article I hope to share some of my (brief) 
experience with you. 


Let me say from the start that I believe FORTH is far superior to basic in 
almost every respect. I will admit that it is a little harder to learn but 
well worth the effort. 


A few things to know about FORTH. It works by defining WORDS, each of 
which extends the language and is therefore immediately available for use in 
programs other than the current one. FORTH does this by having FORTH words 
(mainly) operate on a STACK. So before you run a subroutine (that is invoke a 
FORTH word by simply typing in its name) you must first of all load the 
numbers it needs on the stack. To do this, you can type in the numbers, 
separated by blanks. FORTH recognises them as numbers and automatically puts 
them on the stack. 


To give an example, the equivalent of PRINT 2+3 in basic is 2 3 +. in 
FORTH. The FORTH compiler recognises the 2 space (spaces are always 
significant in FORTH) and puts 2 on the stack. Similarly for the 3. Then it 
encounters the +, which is a FORTH word meaning “add the two top-most words on 
the stack (deleting them) and put the result back on the stack”. The ".° is 
the FORTH word for PRINT. Words can be (almost) any combination of symbols 
and letters up to 31 characters long. 


One of the first exercises I did was to re-code ESCAPE (which was 
published in INSIDE INFO No. 3 and is also reproduced here). The result 
appears as Screens 37 and 38 (FORTH programs are stored as "screens”). I 
shall use this program as an example of FORTH and as a basis of comparison 
with BASIC. 


Line 0 of Screen 37 is a comment line. Comments are enclosed in 
brackets. Lines 1, 2 and 3 define 5 variables, X1, X2, Yl, Y2 and C, giving 
the first four the initial value of zero and C the value of 1. Notice that 
named variables must be explicitly declared. The X and Y variables are used 
to hold the co-ordinater of PLOT and DRAW (TO) and C is used to hold the 
colour register number to be used when plotting or drawing. 


Line 4 commences with a ":" which tells the compiler that a new word is 
going to be defined, in this case a word called BOX. As its name suggests, 
BOX draws a rectangle through Xl, Yl and X2, Y2. It does this be doing one 
PLOT at Xl, Yl and four DRAWs. These words require 3 numbers to be on the 
stack, the first specifying the colour register to be used for the point (or 
line) and the other two specifying the X and Y co-ordinates. In FORTH 
invoking the name of a variable (e-g. "C") causes the address of that variable 
to be placed on the stack. If we want the value of the variable we must fetch 
it from the address specified. This is done with the word "@" (called 
"fetch"). So the sequence "C @ X1 @ Yl @" retrieves the contents of the 
variables C, Xl and Yl and places them on the stack ready for PLOT (or DRAW in 
line 8) to operate on. The ";" in line 8 tells the compiler that the 
definition of BOX is finished. 
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Notice that BOX is perfectly general. Once compiled into your system you 
can draw a rectangle simply by giving the variables C, Xl, Yl, X2 and Y2 
values and saying "BOX"! 


The word SETCR defined at line 10 sets the hue and luminance of 8 of the 
colour registers used in graphics mode 10. First of all, the 8 values are 
loaded onto the stack (in reverse order to that shown in the original basic 
program, since the last value on is the first off). A DO loop is started with 
an initial value of 1 and a final value of 9. Inside the loop, a number is 
pulled of the stack (2 on the first pass) added to 224 (to give a hue of 14 = 
orange-green and a luminance of 2). This is stored into byte 704 + I via the 
704 I+ Ct. Inside a loop I is special FORTH word which puts the loop index 
on the stack and C: stores the 8 bit byte second last on the stack as the 
address specified by the last entry. On the first pass of the loop, I = 1 so 
224 is stored at address 705, which is the colour register for Player 1. The 
word LOOP increments the loop index and if the result is greater than or equal 
to the limit (9 in this case) the loop terminates. So we need a limit of 9 to 


achieve a final pass of the loop with I = 8. 


The word ROTATE On line 12 simply rotates the contents of memory locations 
between two specified limits (which must be on the stack). This word performs 
the same function (but in a more general way) as the machine coded routine 
called up in the USR statements in the basic version of ESCAPE. FORTH is so 
much faster than basic that machine code in unnecessary in this case (but note 
that most FORTH systems have their own assembler!). I will let you figure out 
how rotate works. The words not already described are: 


DUP nl --- nl nl 
Duplicate the last entry on the stack (symbols to the left of -~- 
must be on the stack before invoking the word, symbols on the right 
are left by the word) 


ROT nl n2 n3 --- n2 73 1 
Rotate the last 3 entries 


OVER nl n2 --- nl n2 nl 
Copy the second stack value making it the new top 


- nl n2 --- diff 
Subtract 

SWAP nl n2 --~- n2 nl 

a n addr --- 


Store the top (16 bit stack entry at addr n addr --- 


Screen 37 ends on line 15 with a FORTH word which means “load the next 
screen. Line 1] starts the definition of a word RUN, which starts you running 
through the escape tunnel. RUN starts with a BEGIN statement (repetive 
execution), rotates colour registers 705 to 712 and executes an empty loop 600 
times. Then UNTIL checks to see whether 2 = 0. It finds it is isn't 
(surprise!) and loops back to begin. UNTIL only terminates its loop if the 
preceeding test is. TRUE, so the loop executes ‘forever’. Note that the basic 
program (line 90) only needs 24 passes through an empty loop to slow the 
motion down to roughly the same speed. You can do“nothing about 30 times 
faster in FORTH: 
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Finally we get to the ESCAPE program itself. In line 4, Graphics mode 10 
is set and SETCR is invoked. Then a DO loop is executed 38 times to draw 38 
pairs of BOXES. Two boxes are needed for each pass of the loop becuase 
Graphics mode 10 pixel is 4 elements wide by one high, giving 80 pixels across 
the screen and 192 down. So to get a reasonably symmetrical display we need 
two horizontal lines for each vertical line. This is accomplished (in this 
case) by the slightly inefficient tactic of drawing two overlapping boxes, the 
second having the same "walls" (same Xl and X2) but a lower “ceiling” and 
higher “floor” (Yl = Yl + 1, or 1 Yl +! in FORTH and 1 MINUS Y2 +!). 


After drawing the second box of the pair, C (which specifies the colour 
register to be used in drawing the next two boxes) is incremented by 1 and 
checked to see whether it exceeds 8. In this case, C is reset tol, to 
restart the luminance sequence beginning with luminance = 2. After the 38 
pairs of boxes have been drawn, the loop terminates and you start to RUN 
through the tunnel. 


To actually run ESCAPE you have to LOAD screen 37 by typing 3/7 LOAD. This 
compiles all the words in Screens 3/ and 38. Then you simply type in ESCAPE. 


Finally, FORTH is much more compact than BASIC. Escape takes up 756 bytes 
in BASIC but only 396 bytes in FORTH. So you can see FORTH is a language with 
a lot going for it: 


ie 
OQ 
SH 
Ww 
wmf 


COON DUP WNH OD 
bd 
© 
PS 


DEMO PROGRAM JEM-10DEC82 ) 
O VARIABLE X1 0 VARIABLE Y1 
O VARIABLE X2 O VARIABLE Y2 
1 VARIABLE C 

Cc @ Xl @ Yl @ PLOT 

Cc @ x2 @ Y1 @ DRAW 
Cc @ x2 @ Y2 @ DRAW 
C 
C 


o~ 


@ X1 @ Y2 @ DRAW 
@ X1 @ Y1 @ DRAW ; 

SETCR 02468642 91 DO 
10 224 + 704 I + C! LOOP : 


12 : ROTATE DUP @ ROT ROT OVER 
13 SWAP DO I 1+ @ IC! LOOP C! ; 


SCR # 38 


RUN BEGIN 712 705 ROTATE 
600 1 DO LOOP 2 O= UNTIL ; 


39 0 DO 
I x1! | ee oo 6 ee 
TORT CS 2  200-Yr @ Sy2 | 
| BOX 
9 1 Yl +! 1 MINUS Y2 +: BOX 
10 1c+i:c@é8s IF 1C ! ENDIF 


1l LOOP RUN ; 


1 
2 
3 
4 : ESCAPE 10 GR. SETCR 
5 
6 
7 
8 
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Rere’s a small game that I’ve & 

niay at school, The came is aaa os 
program should be sufficient = 
intention whilst writing the orag 
appeared to manage okay, 


1 REM 4444444249552 434444435 HH 
2 REM # FOXES ; 
3 REM # by Jonn Trigge ¥ 
4 REM # Fublished by Atari Computer ¢ 
¥ REM #¢ Enthusiasts (N.5,4,) t 
& REM 4 April i983 $ 
7 REM #4434444 d4dH 


10 GOSUE 970 

20 GRAFHICS 17:C=95? €4At? 24)" MOVE JD 

YSTICK 4 UF" | 

30 ? #4)" OR DOWN TG CHOOSE” 

40 ? #6}" GRID SIZE" 

oO ? $40? #45" press trigger to” 

&0 ? #435" start game" 

70? $632 44;" 14 SQUARES” 

BO ? £43? #4}" Zu SQUARES" 

90 2 $632 #43" 34 SQUARES" 

100 ? #637 #4;"" 9 49 SQUARES" 

110 ? $63? #6;" 64 SQUARES" 

120 ? 443? #43" 81 SQUARES" 

130 7 $6;7 #43" USER DEFINED" 

140 IF STRIG(Q)=0 THEN 140 

150 POSITION 3,03? #4; "2"sFOR k=1 10 1 
OOSNEXT W 

160 IF STICK(O=13 THEN POSITION 3,C}? 
#43" "3CaC+230F C=27? THEN C=8 

170 IF STICK(0)=14 THEN POSITION 3,03? 
#43" “SC=C-201F C=6 THEN C=20 

189 IF STRIG(O)=1 THEN i50 

190 IF Ce22?0 THEN H=C/2;Y=HiCOTO 340 

200 GRAPHICS 17:7 #43? $4)" ITaruT GRID 

SIZE BY" 

16? #63" MOVING JOYSTICK 1” 

Q ? $43" UP OR DOWN UNTIL" 

30 ? #45" DESIRED VALUE IS" 

0 ? $6)" SHOWN" 

90 ° #43? #45" press trigaer 
enter value” 

260: C=itF=iSiPOSITION 4,79? #4} "norizo 

ntal"sL=19sGGSub ZagsH=C 

270 C=1tF=Z0;POSITION 6,Pi? $4; "vertic 

al"sL=9;GOSUE 280iV=CiCOTO 340 
58) IF STRIG(O}=0 THEN 780 





ae 
lb i fend 


bh oe Po PO Pg Pa 


-18- 


It ic bases an the game of boxes that kids 
One, $0 the instructions provided in the 
ae ee explanation — at least that was my 
have tested it on two or three people and they all 


290 POSITION 15,F¢7 $670)" “IFOR Wal T 

GC i0Q°NEXT W 

S00 IF STICK(O)=14 THEN CHC+HiT IF Cat T 

neh C=1 

aid IF STICK(O}=13 THEN C=C-irTF Cai 7 

HER C=L 

Sé IF STRIG(O}=1 THEN 270 

330 RETURN 

340 GRAPHICS SIScTCOLOR 0,4, 8:SETCOLOR 
1,12, 12;SETCOLOR 2,1,4: COLOR 2:POKE 7 


2 al 

SoQ HOR=37-Z#H VERALS-Z8V 

340 FUR T=HGR 70 HORTHE4 STEP 4 

370 FOR JeVER TG VER+ "4 STEP 4 

320 PLOT T,d:NEXT JOHEXT I 

390 DIM GRIDCH,V) SCL) ¢FOR I=1 TO HtF 

OR J=1 TO ViGRID(T,J)=13NEXT JINEXT Ti 

SECO) =: SEC1 )=0 

400 PL=03HPUS=HORs YPOS=VER 

410 IF STRIG(O)=0 THEN 419 

490 2 CHRSCIZS) ;"PLAYER "SPLALp e's? 

NSE JOYSTICK “$PL+i;" TO SELECT STARTI 

NG's? "POINT, THEN PRESS TRIGGER” 

430 COLOR PL+i:PLOT HOS, VPOSIFOR W=1 

TO SO3NEXT WESQUHD 0,0,0,8 

446 IF STRIG(PL)=0 THEN S10 

450 IF STICK(PL)=14 THEN GOSUE SO0fVFO 

S=VFOS~-431F VEOSEVER THEN VFOS=VER+4ay 

440 IF STICK(FL)=13 THER GOSUB 500¢VFO0 

S=YPOS+40IF VEOSSVER+4"Y THEN VFOS=VER 

470 IF STICK(PL)=11 THEN GOSUB 5003HFO 

S=HPUS-4¢0F HROSAHOR THEN HFOS=HOR+44H 

430 IF STICKCRLJ=7 THEN GOSUB SOOSHFOS 

=EFOS+t420F HPOSSHOR+4%H THEN HPUS=HOR 

490 COLGR StFLOT HROS,VPOSIFOR H=1 70 

SOSHEXT &SGOTO 430 

500 FORE 77,0:COLOR SiFLOT HPOS,VPOStS 

GUND 0,40+FL*40,10,6¢RETURN 

10 POKE 77,03? CHRE(125); "PLAYER "SPL 

+45 °5"3? "MOVE JOYSTICK RIGHT OR DOWN 

TO DRAW"? ? "LINE" 

— TF STICK(PLI=A13 THER S=1:C0TO 550 
S20 IF STICK(FLI=7 THEN S=2:G0TO 550 


Sad SOTG a2 

= POKE 77,0 cHr= CAP OS-HORY /4¢1 P= VP 
OS-VER) /4+1 

SAQ IF ({HF=H+1) AND STICK(FL}=7) OR | 
(VP=V41) AND STICK(PL)=13) THEN S80 

3/0 ON S GOTO 616,480 

300 ? CHR¢(i25).? “ILLEGAL HOVE" 

370 FOR T=1 TO SsSOUND 0,200,160, 10+F0R 
Fi TO Z0:NEXT J:SOUND 0,100,10,10:F0 
VL TO 20sKEXT JENEXT I 

600 GOTO 420 

610 IF HPei THEN IF leghhts 1, Vr 

T(GRIDCHP-1,YP)/3> THEN 5 

&20 IF HP<=H THEN IF GRID (HP VP}/7=INT 
(GRID (HF, VP)/7) THEN S90 | 

630 PLOT HOR+4x(HP-1) ,VER+4e(VP-1)4+1 2D 

RAWTO ROR+4*(HF-1)  VER+4 (VP-1 +3 

640 IF HRoi THEN GRIDCHP~1,VP)=GRID(HP 

—1,VPox3;0F GRIDCHP-1,VP)=210 THEN GOS 

UB 740:GOSUB 780tFL=1 

690 IF HPS=H THEN GRID(CHP,VF)=GRIDCHP, 

VP)S7sIF GRIDCHP,VP)=210 THEN GUSUE 75 

O;GOQSUB 780;FL=1 

660 IF FL=0 THEN FL=1-FL 

670 FL=0;C010 420 

680 IF VF+1 THEN IF GRIDCHF,VP-1)/S=IK 

T(GRID (CHP, VP-1)/5) THEN 380 

690 IF VPs=V THEN IF GRIDCHP,YP)/2=INT 
(GRIDCHP,VP)/2) THEN 380 

700 PLOT HOR+4X(CHP-1)4+1,,VERTAKCVP-1)50 

RAWTO HOR+4x(HP~1 +3 ,VER+48 (VP-1) 

710 IF VP2i THEN GRID(HF,VP-1)=GRID (HP 
»VP-L)K3SIF GRIDCHP,VP-1)=210 THEN G05 

UE 760:GOSUB 7B0°FL=1 

720 IF VPs<=V THEN GRIDCHP,VPO=GRID CHP, 

VP)a2¢IF GRIDCHF,VP)=210 THEN GOSUE 77 

O;COSUE 780;FL=1 

730 GOTO 640 

740 FOR I=i TO 3:PLOT HOR+4x(HP~2)41,¥ 

ER+4x(VP-1)+1{DRAWTO HOR+4x(HP-2) +1, VE 

Rt4X(VP-L)43 NEXT TS RETURN 

730 FOR T=i TQ 3:PLOT HOR+4x(HP-13+1,¥ 

ERt4x(VF-1)4+1DRAWTO HOR+4x(HP-1)4+1,VE 


"3/35IN 





B40 2 CHRE(L25) SPOKE 457 


R42 (MP -2)42 907 TIPETURN 

7oh FOR T=t 70 SiPLUT WORe4e (HF -1)41,U 

ERAN UPD) +t SORAMTO HOR CHP 1341, VE 
T 


Rtas VME +S NEXT 
770 FGR T=1 10 ir Lot a -1)41,¥ 

chee (UP U+1IGRANTO HOR+4e CHP-1)+0, VE 
R+ada(¥P-L)4+S2NEXT TS RETURH 
760 SCCPLI=SUCRL 44 
790 TF SUCO}+5C(L)<HeY THER RETURN 
ag00 FOR f=1 70 iQ:FOR J=1 TO {5 
610 SETCOLOR 4,U,4;SQUHb pire id 
O20 NEXT JéHEXT I 
830 SQUAD 0,0,0,0 
71737 “SCORES 





WIpOUE §57,44%9 "PLAYER 1s S00 
B50 Ene 65:7 »143? "PLAYER 2 Ls re we" 1) 
PRESS TRIGGER TO PLAY AGAT 


a7 IF STRIGCQ3=0 OR STRIG(L}=0 THEN C 
Lk i8070 28 

B80 GOTO 970 

G30 GRAPHICS GPOKE 752,17F05ITION 17, 
ii? "BOXES" 

900 7.7 "Two players take turns to co 
mnece"s? “adjoinino points om 3 arid. 
Each" 

910 7 “time a player completes 2 
e, he's? “scores 1 point anc bate ane 
xtra 

o270 2? “turn. The winner 15 we player 
WIth'S? “the most points when all tne 
squstes';? "are compieted.” 

930 7 3? "In this version of the ane, 


ar 


lines"? "can only be drawn from left 
to right"s? “or top te oottom,” 
$40 POSITION 5,223? "PRESS EITHER TRIG 
CER 70 BEGIN" 
950 IF STRIG())=0 OR STRIG(L)=0 THEN R 
F TURN 
940 COTO 750 


GREEK ALPHABET 
by Jamie Athas 


The ATARI computer can de just about anything. [1] haven’t seen it do the washing up wyet! - 
GF] Wouldn’t it be great if it could write in different languages? This program presents a 
routine which allows you to print the Greek alphabet, In ite cresent form, you merely press 
any alphabetic key to print the normal English character, but by pressing the CONTROL hey 
as well, you can print the equivalent Greek character. In actual fact, the program goes one 
step too far. There are 24 letters in the Greek alphabet, but #4 characters have been 
redefined, This is because Y and Z have been used for accents, 


The program uses the machine language subroutine from DOGGIES to move the character set 
(lines 20 to 40). This means that initialisation only takes 3 seconds. Note that pressing 
SYSTEM RESET or doing a GRAPHICS command ie reset the oointer to the character set and 


the Greek characters may be lost. | 


[Let’s see some more foreign character fants from ather members. How about German, 


Russian, Arabic and Japanese for starters” And how about some applications for them” - 
GF] 
1 REM HH #44 £102,24,24,102, 102,41 
2 REM ¢ GREEK ALPHABET $ 170 DATA 0,8,107,107,107,42,2,55.0,60, 
3 REN # by Janie Athas i 102,102,102,40,0,126 
4 REM # Fublished by Atari Computer 4 180 DATA 0,0,0,0,0,6,12,24,0,0,0,0,9,0 
9 REM # = Enthusiasts (N.S.H.) $ 16250,0 
& REN ¢ April 1983 + 190 POKE 82,1337 CHR$(izZ5); "GREEK ALFH 
7 REM HHH ABET" +? 
10 GRAFHICS O:POKE S59,0;POKE 712,12¢F 200 FOR I=45 1G 773? CHRS(T)3" = "SCHR 
“E 710,12:POKE 709, 43START=PEEK (104)- $(1-64)5" 0 "SCHRS(T+13)5" = "SCHRS(T 
8 ~SL)sNEXT I 
20 DIN ML$(32):FOR I=1 TO 32?READ AtML 210 PORE 82,21? 6? "PRESS CTRL AND ENG 
$(T)=CHRS(A) SNEXT TiCHSET=255xSTART 1X= LISH CHARACTER TQ?s? “GET EQUIVALENT G 
USR (ADR (MLS) 557344, CHSET ) REEK CHARACTER," 
30 DATA 104,104,133,204, 104,133,203,10 2c PORE 357,34 END 
4,193,206,104,193,205, 142 ,4 tar 


40 DATA 160,9,177,203,145,205,136,208, 
249,230 ,204,230,206,202,208, 240,96 
30 FOR I=CHSET+520 TO CHSET+728:READ A 


SPOKE I,ASNEXT IIPOKE 754,START | ROSE 


60 DATA 0,24,40,102,102,126,102,102,08, 


124,1027,102,174,102,102 124 1 REM $44445444454444444444434434444 
70 DATA 0,127,50,48,48,48,49,120,0,24, 2 REM 3 ROSE ; 
60,102,102,102,102,124 3 REM 4 by Greg Marthick t 
80 DATA 0,124,50,48,40,48,50,176,0,126 4 REM 4 Published by ATART Computer 4 
170,12,24, 48,98, 124 S REM # Enthusiasts (N.5.W,) ; 
90 DATA 0,102,1027,1276,1276,107,102,102, é REN 4 Aoril 1993 ; 
0,40,102,102,1276,102,102,40 7 REM 4334444 HHHHHHHHHE 
100 DATA 0,124,24,24,24,24,24,124,0,23 10 GRAPHICS 22 
0,107,108,120,170,108,102 | 20 SETCOLOR 4, INT(14*RND(O)) INT (4XRND 
110 DATA 0,24,60,107,102,102,107,231,0 (0)) 

+99 127 5107599 99 99,99 30 SETCOLOR 0, INT(149RND(0)) INT (12xRN 
170 DATA 0,102, 102,118,126, 110,102,102 D(0))+4 

10,126,0,0,60,0,0,126 4) M=302RND(O)+3{N=MXRNDOCD)+LIMN=M/N 
130 DATA 0,60,102,102,107,102,40,0,0,2 50 X=791Y=47:COLGR LiFLOT X,Y 
55,102,102,102,102,102,231 40 FOR I=0 TO i28 STEF RND(O)40.1 

149 DATA 0,252,102,102,124,96,94,240, 0 70 R=YxSINCMNET) 

,126,98,48,24,48,99, 126 G0 DRAWTO X+hxSIN(I), Y+RxCOS (1) 

150 DATA 0,126,24,274,24,24,74,24,0,195 90 SOUND INT(ZRNDCO)), INT(200%RND(0)) 
,102,60,24,24,24,24 +58,10,INTCLA®RND (OD) 

160 DATA 0,8,427,107,107,107,42,8,0, 102 {00 NEXT TSRUN 


—-?0- 





A\ nogelan gots Ly Gary Pranets 


All members whe joined before tst June, 19582 will have their merherstup ext] 
June, 1963, This ensures that they will receive the full compiement of & magarines along 
with everybody else. Please nate that there will be na freebies, Anybady who does not 


4 
renew their subscription when their time comes will be taken off the mailing list, 


iti OTT 


The second batch of blank discs are almost sold out. We have come up with a new supplier, 
but the price will go up by about $7 and there will be no plastic box supplied, Buy now to get 
them at the old price of $22 per box af 10, First in, first served, 


+ Het 


As mentioned last issue, the Sortware Exchange is now cperational. The first disc is now 
available, This is 4 utilities disc drawn mainly from ANTIC’s Public Domain disc, The 
programs include an automatic line number generator, memory tester, = assemblers, 
documentation program, parallel printer driver for Ports 3 & 4 and a program to make disc 
housecleaning a simpler task. All documentation is included on the disc. By the time you 
read this, the second disc should also be available, This will be all games. The third disc 
should be available shortly. This is an extended version of fig-FGRTH fram Team ATARI, It 
comes with full graphics, sound and player-micsile graphics support. At #10, it’s the best 
bargain you’ll get this century! You’ll also need a book or two on FORTH and the 
documentation for this version out of SoftSide #24, This must be bought separately (for 
copyright reasons) and is available now at selected newsagents, 


Overseas subscriptions will now be $25 per year to help absorb the exhorbitant airmail 
postage rates, 


HEE 


We were approached by a few people at the ist Australian Personal Computer Show about 
starting a group in Newcastle. Anybady interestad? 


x HH 


There’s a new club which may be of interest to our South Australian members tif we’ve got 
any), It’s called the Adelaide Atari Computer Club. They meet at Sargent Electronics, é 
Moseley Street, Glenelg, 5.4, 5045, They have a newsletter (which includes stuff from 
INSIDE INFO - boy, it sure gets around!) and the usual user group activities, Write to the 
above address for details, 


+s $ 


That’s all for now. Please don’t forget to vote (see Editorial for details) Next time, Ill be 
back with some very interesting hints and tips, Happy computing. | 


—-?i1- 


"OE: be in? FU WLS RE x ae) 


WILL SOON MOViE TO 
BIGGER PREMISES 


NEAR BY MYER — GRACE BROTHERS 


UNCEMENT 





WATCH FOR ANNO 


WE HAVE A HUGE NEW RANGE OF ATARI SOFTWARE TO SHOW YOU 
WE WILL NOT BE UNDERSOLD & WILL MEET ANY ADVERTISED PRICE 
WE STOCK ALL IMAGINEERING SOFTWARE 


WE WILL SUPPLY MAIL ORDER 


WE ACCEPT BANKCARD 





LIMITED 


All Correspondence to: Lower Ground Floor 
Box 268 Myer Sydney Store 
GPO Sydney George and Market Streets 
N.S.W. 2001 Sydney 


Tel: 238 9984 


eoe> 


